﻿Imports System.Data.SqlClient

Public Class FrmLVanBan

    Private Sub DataGridViewLVB_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridViewLVB.CellClick
        TextID.Text = DataGridViewLVB.Rows(e.RowIndex).Cells(0).Value
        TextLoaiVanBan.Text = DataGridViewLVB.Rows(e.RowIndex).Cells(1).Value
    End Sub
    
    Private Sub ButtonThem_Click(sender As Object, e As EventArgs) Handles ButtonThem.Click
        Try
            If TextID.Text = "" Or TextLoaiVanBan.Text = "" Then
                MsgBox(" Nhập thông tin không đầy đủ !!! ")
            ElseIf LoadThongTin("SELECT TenVanBan FROM DMTenVanBan WHERE TenVanBan = N'" & TextLoaiVanBan.Text & "' ").Rows.Count > 0 Then
                MessageBox.Show("Tên loại văn bản trùng, nhập lại !!!")
            Else
                Dim cmd As New SqlCommand("INSERT INTO DMTenVanBan VALUES (@id, @tenvanban)", ob_cnn)
                ob_cnn.Open()
                cmd.Parameters.AddWithValue("@id", TextID.Text)
                cmd.Parameters.AddWithValue("@tenvanban", TextLoaiVanBan.Text)
                cmd.ExecuteNonQuery()
                MessageBox.Show("Thêm thông tin thành công!")
                DataGridViewLVB.DataSource = LoadThongTin("SELECT * FROM DMTenVanBan")
                DataGridViewLVB.Refresh()
                ob_cnn.Close()

            End If

        Catch ex As Exception
            If ex.Message.Contains("PRIMARY KEY constraint") Then
                MessageBox.Show("Trùng mã, nhập lại!")
                ob_cnn.Close()
                Return

            End If
        End Try
    End Sub

    Private Sub ButtonSua_Click(sender As Object, e As EventArgs) Handles ButtonSua.Click
        Try
            If TextID.Text = "" Or TextLoaiVanBan.Text = "" Then
                MsgBox(" Nhập thông tin không đầy đủ !!! ")
            ElseIf LoadThongTin("SELECT TenVanBan FROM DMTenVanBan WHERE TenVanBan = N'" & TextLoaiVanBan.Text & "' ").Rows.Count > 0 Then
                MessageBox.Show("Tên loại văn bản trùng, nhập lại !!!")
            Else
                Dim cmd As New SqlCommand("UPDATE DMTenVanBan SET MaTenVanBan = @id, TenVanBan = @tenvanban WHERE MaTenVanBan = @id", ob_cnn)
                ob_cnn.Open()
                cmd.Parameters.AddWithValue("@id", TextID.Text)
                cmd.Parameters.AddWithValue("@tenvanban", TextLoaiVanBan.Text)
                cmd.ExecuteNonQuery()
                MessageBox.Show("Sửa thông tin thành công!")
                DataGridViewLVB.DataSource = LoadThongTin("SELECT * FROM DMTenVanBan")
                DataGridViewLVB.Refresh()
                ob_cnn.Close()

            End If

        Catch ex As Exception
            If ex.Message.Contains("PRIMARY KEY constraint") Then
                MessageBox.Show("Trùng mã, nhập lại!")
                ob_cnn.Close()
                Return
            End If
        End Try
    End Sub

    Private Sub ButtonThoat_Click(sender As Object, e As EventArgs) Handles ButtonThoat.Click
        FrmMucLucHoSoBienDong.FrmMucLucHoSoBienDong_Load(sender, e)
        Me.Close()
    End Sub

    Private Sub FrmLVanBan_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        DataGridViewLVB.DataSource = LoadThongTin("select * from DMTenVanBan")
        DataGridViewLVB.Refresh()
    End Sub

End Class